home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / SearchLib.AmiCAD < prev    next >
Text File  |  1999-03-16  |  914b  |  30 lines
  1. /* Recherche d'un composant dans une bibliothèque */
  2. /* Version 1.00, 23 Novembre 1998 */
  3. /* Version 1.01, 16 Mars 1999: correction bug ASKTEXT */
  4. /* $VER: 1.01 (© R.Florac, 16 mars 1999) */
  5.  
  6. options results     /* indispensable pour récupérer le résultat des macros */
  7.  
  8. signal on error     /* pour l'interception des erreurs */
  9. signal on syntax
  10.  
  11. 'ASKTEXT("Quelle est le nom du"+CHR(10)+"composant recherché?"+CHR(10)+"Vous pouvez utiliser les"+CHR(10)+"jokers AmigaDOS pour"+CHR(10)+"spécifier ce nom."+CHR(10)+"Exemples: TRANS#? 74#?244","")'
  12. nom=result
  13.  
  14. if nom="" then exit
  15.  
  16. address command
  17. 'Travail:AmiCAD/SearchLib >CON:100/100/600/200/SearchLib/CLOSE/WAIT/SCREENAmiCAD 'nom' QUIET ALL'
  18.  
  19. exit
  20.  
  21. /* Traitement des erreurs, interruption du programme */
  22. syntax:
  23. erreur=RC
  24. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  25. exit
  26.  
  27. error:
  28. 'MESSAGE("Erreur en ligne 'SIGL'")'
  29. exit
  30.